# Title: Euclid						Filename: Euclid.s
# Author: Jazmin Esmeralda Crespo Coronado		Date: 29 - March - 2017
# Description: Algorimo para maximo comun divisor
# Input: --
# Output: Maximo comun divisor

@ r1 Esperando el primer numero
@ r2 Esperando el segundo numero

##### Code segment #####

.section	.data
vals:
	.long 6099, 2166
.section	.text

.globl _start

_start:
	ldr r2, =vals		@ Prepara r1 para iniciar en la variable
	ldr r1, [r2]		@ Carga el primer numero en r2
	ldr r0, [r2, #4]	@ Carga el segundo numero en r0

##### Data segment #####

gcd:
	cmp r0, r1		@ Compara r0 y r1
	subgt r0, r0 ,r1	@ Si r0 > r1, r0 = r0 - r1
	sublt r1, r1, r0	@ Si r0 < r1 , r1 = r1 - r0
	bne gcd			@ Si r0 != r1, se repite

	mov r7, $1		@ Prepara la salida
	svc $0			@ Se activa el kernel

.end
